From: Glenn Morris <rgm@gnu.org>
Date: Fri, 13 Sep 2013 16:16:57 +0000 (-0700)
Subject: * test/automated/eshell.el (eshell-test-command-result): Clean up when done
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~3225
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=bc2c0769db73f5acd7545b4c3f74cae29e4e4315;p=emacs.git

* test/automated/eshell.el (eshell-test-command-result): Clean up when done
---

diff --git a/test/automated/eshell.el b/test/automated/eshell.el
index d5ebc567281..f9061ceb57c 100644
--- a/test/automated/eshell.el
+++ b/test/automated/eshell.el
@@ -60,7 +60,9 @@
   "Like `eshell-command-result', but not using HOME."
   (let ((eshell-directory-name (make-temp-file "eshell" t))
         (eshell-history-file-name nil))
-    (eshell-command-result command)))
+    (unwind-protect
+        (eshell-command-result command)
+      (delete-directory eshell-directory-name t))))
 
 ;;; Tests: